home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
moves.arc
/
TESTMOVE.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-01-09
|
936b
|
48 lines
{ TestMove.pas - Very simple test for MOVES.TPU ver 1.0, 7-12-88 }
{ The use of either Move16 or Move16n gives the exact same results }
program TestMove;
uses Crt,Moves;
type
CharArray = array[0..79] of char;
var
Array1,Array2: CharArray;
i,j: word;
procedure ShowNumberLine;
begin
for j:=1 to 4 do
begin
HighVideo;
Write ('0123456789');
LowVideo;
Write ('0123456789');
end;
end;
procedure DumpArray (VAR TheArray: CharArray);
begin
for i:=0 to 79 do
Write (TheArray[i]);
end;
begin
TextAttr:=Lightgray;
ClrScr;
fillchar (Array1,80,'1');
fillchar (Array2,80,'2');
Move16 (Array1[ 2],Array2[ 2],3);
Move16 (Array2[20],Array1[20],3);
Writeln ('Contents of Array1:');
DumpArray (Array1);
ShowNumberLine;
Writeln;
Writeln ('Contents of Array2:');
DumpArray (Array2);
ShowNumberLine;
end.